home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DELPHI32 / SYS_TOOL / MULTI020 / MTEST2.PAS < prev    next >
Pascal/Delphi Source File  |  1993-09-08  |  453b  |  28 lines
  1. uses multi, mpipes;
  2.  
  3. var
  4.   t : tpipe;
  5.   s : string;
  6.  
  7. procedure gettask(var m); far;
  8. var s : string;
  9.     t : tpipe absolute m;
  10. begin
  11.   t.NewOutputTask;
  12.   s[0] := t.get;
  13.   t.GetBin(s[1],length(s));
  14.   writeln('GetTask received: ',s);
  15.   t.NoMoreOutput;
  16.   Terminate;
  17. end;
  18.  
  19. begin
  20.   s := 'Hallo, Welt';
  21.   t.Init(10);
  22.   Fork(GetTask,4096,t,'GetTask');
  23.   t.NewOutputTask;
  24.   t.PutBin(s,length(s)+1);
  25.   t.NoMoreOutput;
  26.   Terminate;
  27. end.
  28.